home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / demo096.dxr / Internal (lingo)_1.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  722 b   |  41 lines
  1. on startMovie
  2.   global gDemoStyle, gSection, gPrevMovie
  3.   hDumpPrevMovie()
  4. end
  5.  
  6. on hWheretoGoNext
  7.   global gDemoStyle
  8.   if gDemoStyle = "full" then
  9.     go(1, "DEMO401")
  10.   else
  11.     if gDemoStyle = "group" then
  12.       go(1, "DEMO401")
  13.     else
  14.       if gDemoStyle = "single" then
  15.         go(1, "000A")
  16.       end if
  17.     end if
  18.   end if
  19. end
  20.  
  21. on hGoBackToMEnu
  22.   global gDemoStyle, gSection
  23.   if gDemoStyle = "full" then
  24.     go(1, "000MAIN")
  25.   else
  26.     if gDemoStyle = "group" then
  27.       go(1, "000" & gSection)
  28.     else
  29.       if gDemoStyle = "single" then
  30.         go(1, "000" & gSection)
  31.       end if
  32.     end if
  33.   end if
  34. end
  35.  
  36. on hDumpPrevMovie
  37.   global gPrevMovie
  38.   unloadMovie(gPrevMovie)
  39.   set gPrevMovie to the movieName
  40. end
  41.